Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/rdblib/test.frm

Text File | 1995-05-08 | 20KB | 788 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   Caption         =   "Royce D. Bacon (RDB) Common Library Demo"
   ClientHeight    =   5970
   ClientLeft      =   1140
   ClientTop       =   1080
   ClientWidth     =   7740
   Height          =   6660
   Icon            =   TEST.FRX:0000
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   5970
   ScaleWidth      =   7740
   Top             =   450
   Width           =   7860
   Begin PictureBox cMsg
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   1
      Top             =   0
      Width           =   1000
   End
   Begin PictureBox PnlHelp
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   4
      Top             =   0
      Width           =   1000
   End
   Begin PictureBox CMDialog1
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   5
      Top             =   0
      Width           =   1000
   End
   Begin PictureBox BtnEject
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   9
      Top             =   0
      Width           =   1000
   End
   Begin TextBox TxtDate
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   4020
      TabIndex        =   14
      Tag             =   "Enter the date to be validated"
      Text            =   "01/01/94"
      Top             =   4620
      Width           =   1095
   End
   Begin TextBox Txtprintwidth
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   6660
      TabIndex        =   11
      Tag             =   "Enter the line width to use"
      Text            =   "65"
      Top             =   3060
      Width           =   555
   End
   Begin TextBox Txtfmtline
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   3960
      TabIndex        =   10
      Tag             =   "Enter the beginning line for the text to print on"
      Text            =   "10"
      Top             =   3060
      Width           =   555
   End
   Begin PictureBox BtnFormat
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   13
      Top             =   0
      Width           =   1000
   End
   Begin TextBox Txtformatstring
      BackColor       =   &H00C0C0C0&
      Height          =   795
      Left            =   3960
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   12
      Tag             =   "Enter the string to be formatted"
      Text            =   "This String Will Be Formatted Into individual lines for printing.  This text should be long enough to create multiple lines on the printed output."
      Top             =   3480
      Width           =   3675
   End
   Begin TextBox Txtrjcol
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   7140
      TabIndex        =   8
      Tag             =   "Enter the rightmost column to align on"
      Text            =   "40"
      Top             =   2340
      Width           =   435
   End
   Begin TextBox Txtrjformat
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   4320
      TabIndex        =   7
      Tag             =   "Enter the format string to use for formatting the number"
      Text            =   "###,##0.00"
      Top             =   2340
      Width           =   1455
   End
   Begin PictureBox Btnrightjustify
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   15
      Top             =   0
      Width           =   1000
   End
   Begin TextBox Txtrjnum
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   4320
      TabIndex        =   6
      Tag             =   "Enter the number to be formatted"
      Text            =   "200"
      Top             =   1920
      Width           =   1455
   End
   Begin PictureBox ChkNewLine
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   16
      Top             =   0
      Width           =   1000
   End
   Begin TextBox Txtctrline
      BackColor       =   &H00C0C0C0&
      Height          =   315
      Left            =   2760
      TabIndex        =   3
      Tag             =   "Enter the line number for the string to print on"
      Text            =   "10"
      Top             =   1320
      Width           =   555
   End
   Begin PictureBox BtnCenter
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   32
      Top             =   0
      Width           =   1000
   End
   Begin TextBox Txtctrstring
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   3900
      TabIndex        =   2
      Tag             =   "Enter the string to be centered"
      Text            =   "This String Will Be Centered"
      Top             =   960
      Width           =   3675
   End
   Begin TextBox TxtErrorNum
      BackColor       =   &H00C0C0C0&
      Height          =   375
      Left            =   4500
      TabIndex        =   0
      Tag             =   "Enter the error number to be generated"
      Text            =   "10"
      Top             =   240
      Width           =   555
   End
   Begin PictureBox Command3D2
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   33
      Top             =   0
      Width           =   1000
   End
   Begin PictureBox BtnGenError
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   34
      Top             =   0
      Width           =   1000
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FF0000&
      Caption         =   "RB_Validate_Date"
      Height          =   255
      Index           =   4
      Left            =   0
      TabIndex        =   29
      Top             =   4320
      Width           =   7755
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FF0000&
      Caption         =   "RB_Text_Format"
      Height          =   255
      Index           =   3
      Left            =   0
      TabIndex        =   31
      Top             =   2760
      Width           =   7755
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FF0000&
      Caption         =   "RB_Rjustify"
      Height          =   255
      Index           =   2
      Left            =   0
      TabIndex        =   30
      Top             =   1620
      Width           =   7755
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FF0000&
      Caption         =   "RB_ErrorHandler"
      Height